RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


. 
**F iLE**1D**CONVBB 
| 
| 
| 
| 
ccccccce 000000 NN NN VV VV B8BBBBBBB BBBBBBBB 
ccccccce 000000 NN NN VV VV 88888888 BBBBBBBB 
cc 00 00 NN NN VV VV BB BB 8B BB 
cc 00 00 NN NN VV VV BB BB 8B BB 
cc 00 00 NNNN NN VV VV 8B BB BB BB 
cc 00 00 NNNN NN VV VV BB BB BB BB 
cc 00 00 NN NN NN VV VV BBBBBBBB BBBBBBBB 
cc 00 00 NN NN NN VV VV BBBBBBBB BBBBBBBB 
cc 00 00 NN NNNN VV VV BB BB BB BB 
cc 00 00 NN NNNN VY VV BB BB BB BB 
cc 00 NN NN VV VV BB BB BB BB eee 
cc 00 00 NN NN vw VV BB BB BB BB cece 
cccccccc 000000 NN NN VV BBBBBBBB BBBBBBBB cove 
cccccccc 000000 NN NN VV BBBBBBBB BBBBBBBB eee 
LL III SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL II SSSSSS 
LL I] 
LL I] 
LL I] 
LL I] 
LLELLLLLLLL IIIII] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 


—— 


CONVBB 18-50 Sep-1 AX-11 Bliss-32 V4.0=-74 Page 1. 
sosdine 99: 48: 3} RUNOFF .SRCJCONVBB.BLI; ° a) 

; 1 1 MODULE CONVBB ( 

; g ¢ IDENT = 'V04-000" | 

; Pp %BL1SS32C | 

; : Pp 9 : ADDRESSING _MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) | 

: 0 )= 

; 5 0 ‘ BEGIN 

3 8 0 1! 

3 008 SMR CSCS TESTS TTT TTT r Tee Tr rr rir iii cirri tii tii iii iii tii tii tii itiitiitt | 

3 1 1 1! * 

ae 819 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

; \¢ 1g 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

: \3 6 13 i* ALL RIGHTS RESERVED. ‘ 

iio 0015 1 is THIS SOFTWARE | Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 

; 16 0016 1 I Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

ey ae 0017 1 Is ONCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; «18 0018 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: 30 9020 - TRANSFERRED. ‘ 

: 3¢ 00 ¢ 1 i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

i. = 00 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $e O08 :° CORPORATION. . 

° Mel . 

; 26 0026 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

ta 00 1 !'* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

BRB TE 

: 50 00350 1 leak eee eee ee RRR E RE RE ER ER RE RA REARS E TEAR ERRAER AER 

Bo Red 

: 35 0038 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: 3 0035 1 | ABSTRACT: Convert a binary number into a vector of characters and 

3 36 0036 1! return the result and character count. 

on ee | 

; 39 0039 i ENVIRONMENT: Transportable | 

+ 41 0041 1 ' AUTHOR: R.W.Friday CREATION DATE: May, 1979 

: 42 0042 1! | 
| 
| 
| 
| 


H 15 
vot-bbo Revision History 12: a 1382 99: 43: 3} RUNOFF SRE COMveS ZOU BL: oso (25 
ai "Revision History’ 
MODIFIED BY: 
002 FA00002 Alden 07-Mar-1983 
2 
io 


Global edit of att “sodules. Updated module names, idents, 
copyright @ates. Changed require files to BLISS library. 
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: 8 § : ZSBTTL "Module Level Declarations’ 
§ 054 1! 
5 7 


0 


J 15 
. 8 Module Level Declarations 12-80 0-1 82 99:49:83 RUNOFF SRE CoMveB “OL te 


GLOBAL ROUTINE CONVBB (BINARY_NUMBER, KHARACTERS, KHARACTER_COUNT, BASE) : NOVALUE = 


1+ 
FUNCTIONAL DESCRIPTION: 


Converts "Sinery myeper to a vector of characters, 

returning them in ‘kharacters'; kharacter_count is the 

number of digits converted. 

The absolute value of Be number’ is converted 

so that the user is responsible for Benet te negative numbers. 
The number will be converted according to the value of BASE. 


oO 
ao 


AAAASOCOW 
wise a 
DOSCOOOOCOCOCOCOCOOOOOO 
Oooo 
PAO UIUIUVN 
Who—OO0 


o 
oo 
oS 
o 
Oo 
“ 


Pp 
KHARACTERS : REF VECTOR; 


LOCAL 
LEFT_TO_CONVERT; 


i ; 

: $ 

: 3 

: 3 

; 3 

: s 

Sa ; 

a! o88 FORMAL PARAMETERS: : 
6 Ort } See FUNCTIONAL DESCRIPTION . 
75 O06 ! IMPLICIT INPUTS: 3 
76 007 ! $ 
77 0074 ! NONE 3 
78 0075 ! 3 
79 B078 ' IMPLICIT OUTPUTS: . 
80 007 ! 3 
81 0078 ‘ NONE 3 
8 0079 ! $ 
8 0080 ! ROUTINE VALUE: 3 
84 0081 ' COMPLETION CODES: 3 
85 ie ! ; 
86 008 ! NONE § 
87 0084 ! 3 
88 0085 ' SIDE EFFECTS: é 
89 po8e ! § 
90 008 ! NONE 3 
91 0088 ! 3 
9 0089 leu F 
9 0090 3 
94 3 
95 009 : 
96 009 OWN 3 
97 0094 DIGITS : INITIAL (CHSPTRCUPLIT('0123456789ABCDEF GHI JKLMNOPQRSTUVWXYZ"))); : 


-KHARACTER COUNT = 0; 
LEFT_TO_CONVERT = ABS (.BINARY_NUMBER); 


BEGIN 

KHARACTERS C..KHARACTER_COUNT) = CHSRCHAR( CHSPLUS(.DIGITS, (.LEFT_TO_CONVERT MOD .BASE))); 
LEFT_TO_ CONVERT = .LEFT TO CONVERT/ BASE: 

-KHARACTER_COUNT = ..KHARACTER_COUNT + 1; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0091 ; BEGIN 
5S 
END 
UNTIL .LEFT_TO_CONVERT EQL 0; 


ab ed be te es SS ts 4) ot 4 SH 
ARGMASSSIS AEA OS 


v04~000 


s 71 
. Fy 


; Routine Size: 


Name 
SPLITS 
SOWNS 
SCODES 


wo 
oo 


51 bytes, 


Module Level Declarations i 
ETURN; 
ND; 


36 35 34 #33 #32 #31 «+30 00000 
4C 48 4A 49 48 47 22 O000r 
5A 59 58 57 56 5 OO1E 
00000000" 00000 
0904 00000 
OC BC D4 Bonog 
52 04 ag DO 0000 
03 18 00009 
52 52 CE 00008 
51 oc Bc Bo 0000 
52 1 7A O0018 
8E 10 AC 7B 9001 
08 BC41 O0000000'FF40 9A 0001D 
52 10 AC C6 ait 
OC BC 06 00028 
D5 ait 43 
DC 12 00030 
04 00032 
Routine Base: S$CODE$ + 0000 
rocCT SUMMARY 

Bytes At 
RD ,NOEX 


36 NOVEC,NOWRT, 
4 WRT, RD ,NOEX 
51 NOVEC,NOWRT, RD, EX 


515 ees. | 
ox8e8 71382 99:48:83 HANNore sae Scomves corre Pege 43 


'End of CONVBB 


TITLE cones 
-IDENT \V04-000\ 


»PSECT SPLITS,NOWRT ,NOEXE ,2 


P.AAA: .ASCII \0123456789ABCDEF GHIJKLMNOPORSTUVWXYZ\ ; 
-PSECT SOWNS,NOEXE,2 
DIGITS: .ADDRESS P.AAA ; 
-PSECT $CODE$,NOWRT,2 
-ENTRY CONVBB, Save R2 : 0056 
CLRL § @KHARACTER COUNT ; 010¢ 
Boy BINARY NUMBER. LEFT_TO_CONVERT ; 010 
MNEGL LEFT_TO_CONVERT, LEFT_TO_CONVERT F 
1$: MOVL § @KHARACTER_COUNT, R + 0107 
EMUL #1, LEFT TO_CONVERT, #0, -(SP) : 
DIV BASE, (SP)+7 RO, R ; 
MOVZBL @DIGITSCROJ, @KHARACTERSCR1) : 
IVL2_ BASE, LEFT_fO_ CONVERT : 0108 
INCL @KHARACTER™ COUNT : 0109 
TSTL _LEFT_TO_CONVERT : 0111 
BNEQ 1$ 5 
RET 3; 0114 
'End of module 
tributes 
E .NOSHR, REL, NO 


LCL, CON,NOPIC,ALIGN(2) 
Petite $ LCL, REL, CON,NOPIC,ALIGN(2) 
sNOSHR, LCL, CON,NOPIC ,ALIGN(2) 


mn 


cm 


you~080 Module Level Declarations 1$-e0-1964 99: 08: 3} RUNOFF SRES ConveB “OL te sie “8 


: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CONVBB/OBJ=0B8J$:CONVBB MSRC$: CONVBB/UPDATE=(ENHS: CONVBB) 


: Size: 51 code + 40 data bytes 
; Run Time 0:01.7 

: Elapsed. tines 0: tad 

3 Lines/CPU Min: 41 

; Lexemes/CPU-Min: 9230 

: oe Used: 23 pages 

; ilation Complete 


ee | 
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